9020 LOCATE 22,35:PRINT "Number must be between 1-127
9030 FOR DLY=1 TO 2000:NEXT:RETURN
9997 '
9998 '** Help screens **
9999 '
10000 X$="Variable line spacing":GOSUB 12500
10010 PRINT"To fit more printing on a page. You can change the spacing between
10020 PRINT"the lines. Allows you to fix a line spacing in multiples of 1/72.
10030 PRINT"The maximum is 85/72. - Normal is 12/72. Spacing is the distance
10040 PRINT"from the bottom of one line to the bottom of next line. Keep in
10050 PRINT"mind that spacing affects the Top OF Form position, since it
10060 PRINT"changes the number of lines per page.
10070 PRINT
10080 PRINT"Pressing number 2 on the menu, resets the lines to normal.
10090 PRINT"pressing number 3 on the menu, (compressed) sets the lines very
10100 PRINT"close, but not touching one another.
10110 PRINT"See help screen number 8 for setting of top and bottom margin's.
10120 GOSUB 12600:RETURN
10200 X$="Skip perforation":GOSUB 12500
10210 PRINT "Selects the amount of lines to skip at the bottom of the page.
10220 PRINT "Do not set the vertical margin for a number greater than the page
10230 PRINT "length in effect.
10240 PRINT "If you select the compressed lines (9/72), it must be set first
10250 PRINT "before you select to skip perforation lines.
10260 PRINT "Skip perforation off, will print continuously":GOSUB 12600 :RETURN
10400 X$="Form Feeds and Line Feeds" :GOSUB 12500
10410 PRINT "Form feed will advance the paper to the next Top Of Form,
10420 PRINT "(one sheet) each time you select number 6 on the menu.
10430 PRINT
10440 PRINT "Line Feeds will advance the number of lines you enter. After
10450 PRINT "selecting number 7 on the menu, a -- How many line feeds? -- will
10460 PRINT "appear, enter the amount of lines you want to advance.
10470 PRINT "Pressing [ENTER] at the -- How many line feeds? -- will enter zero
10480 PRINT "line feeds and take you back to the menu.":GOSUB 12600:RETURN
10600 X$="Setting TOP and BOTTOM margin's":GOSUB 12500
10610 PRINT "Selecting number 8 on the menu will set the amount of lines to
10620 PRINT "skip on the top and bottom of the page.
10630 PRINT
10640 PRINT "You MUST select either Normal (12/72) or Compressed (9/72) mode
10650 PRINT "on the menu (number 2 or 3) BEFORE you select setting top and
10660 PRINT "bottom margin's.
10670 PRINT
10680 PRINT "Enter the amount of lines you want to skip. That's it. Now
10690 PRINT "you can go back and print your text.
10700 PRINT
10710 PRINT "NOTE = You will have to reset all options before you print another
10720 PRINT "document. The Top and Bottom settings are good for one document
10730 PRINT "only.":GOSUB 12600:RETURN
10800 X$="Printer to power up state and Help Screen":GOSUB 12500
10810 PRINT "When you select this option, the printer will reset to the power
10820 PRINT "up condition. This is a quick way to cancel previous settings.
10830 PRINT
10840 PRINT "<< All >> settings that you may have entered will be canceled.
10850 PRINT
10860 PRINT "So be careful when selecting this option.":GOSUB 12600 : RETURN
11000 X$="HELP SCREEN INSTRUCTION":GOSUB 12500
11010 PRINT "The Help Screens will ask you -- Which number do you want to see?
11020 PRINT "You respond with the number of the menu item.":GOSUB 12600:RETURN
11200 X$="List to screen":GOSUB 12500
11210 PRINT "This option will ask you for the drive, path and file name,
11220 PRINT "(see help screen 2). Must be (text) to read it. It will then be
11230 PRINT "listed on the screen for you to examine. The file will scroll one
11240 PRINT "screen then stop, waiting for you to either press [ENTER] or
11250 PRINT "[ESC].Pressing [ENTER] will scroll to the next screen and so on
11260 PRINT "until the file has ended. Pressing [ESC] during viewing will
11270 PRINT "cancel the listing and get you back to the main menu.
11280 PRINT "You can use the print screen (shift-prtsc) and print a screen
11290 PRINT "out of the middle of the text. You may also toggle the printer
11300 PRINT "on or off (ctrl-prtsc) even while its scrolling.
11310 GOSUB 12600:RETURN
11400 X$="List <A,B,C or D drive> directory or sub-directories":GOSUB 12500
11410 PRINT "Selecting menu 2 will list the directory files on the screen.
11420 PRINT "You can select sub-directories. You must use the colon :
11430 PRINT "after the drive letter. C: Some example's follow.
11440 PRINT
11450 PRINT " Root Dir = C:\ (list of dir titles)
11460 PRINT " Sub Dir = C:\misc\ (list files under misc dir)
11470 PRINT " Sub Sub Dir = C:\misc\printer\ (list files under printer dir)
11480 PRINT " To list a file in a sub directory. C:\misc\filename.ext
11490 PRINT
11500 PRINT " To list all files NOT in a sub-directory = A:\
11510 PRINT " To list 1 file NOT in a sub directory. = A:filename.ext
11520 PRINT
11530 PRINT "You may choose to print the directory to the printer using the
11540 PRINT "(shift-prtsc).":GOSUB 12600:RETURN
11600 X$="Printer set up":GOSUB 12500
11610 PRINT "This option will take you to the main printer menu. From there
11620 PRINT "you can select to go to the font menu and change the character
11630 PRINT "fonts or go to the page formatting menu and change the line
11640 PRINT "spacing, skip lines, set top and bottom margins etc.
11650 GOSUB 12600:RETURN
11800 X$="List to printer":GOSUB 12500
11810 PRINT "This option will ask if you want to go to the printer menu. What
11820 PRINT "is the drive, path and file name, (see help screen 2). After
11830 PRINT "answering these questions, will send your file to the printer and
11840 PRINT "print using the formatting and fonts you selected. If you selected
11850 PRINT "no printing options, it will print using the default settings. A
11860 PRINT "sign will appear stating that the computer is printing. When the
11870 PRINT "file is done a sign will appear at the bottom of the screen
11880 PRINT "stating that it reached the end of the file.":GOSUB 12600:RETURN
12000 X$="EXIT TO DOS":GOSUB 12500
12010 PRINT "Selecting this option ends this program and returns you to DOS.
12020 GOSUB 12600:RETURN
12200 X$="Character Font Menu":GOSUB 12500
12210 PRINT "You may select to use these fonts together.
12220 PRINT
12230 PRINT " Standard X
12240 PRINT " Condensed X
12250 PRINT " Emphasized X
12260 PRINT " Double Strike X X X
12270 PRINT " Double Width X X X
12280 PRINT
12290 PRINT "Character set #1 is the default set. Character's 0 - 127
12300 PRINT "Character set #2 prints additional graphic characters. 128 - 255
12310 PRINT
12320 PRINT "Reset prt to power up. Resets all fonts and formatting that you
12330 PRINT "may have selected, so be careful when using this one.
12340 GOSUB 12600:RETURN
12497 '
12498 '** Center help screen titles **
12499 '
12500 DT$=" ---------- "
12510 CLS:PRINT TAB(27-LEN(X$)/2);DT$;X$;DT$
12520 PRINT:RETURN
12597 '
12598 '** Center help screen enter for menu **
12599 '
12600 M$="Press [ENTER] for menu"
12610 PRINT:PRINT TAB(27-LEN(M$)/2);DT$;M$;DT$
12620 INPUT "",E
12630 RETURN
12697 '
12698 '** Get number of help screen (main menu) **
12699 '
12700 LOCATE 14,35:INPUT "Which number do you want to see.";ANSWER
12710 IF ANSWER <1 OR ANSWER >7 THEN BEEP:GOTO 12700 ELSE 12720
12720 ON ANSWER GOSUB 11200,11400,11800,11600,10800,12000,11000:RETURN
12797 '
12798 '** Get number of help screen (page formatting) **
12799 '
12800 LOCATE 21,35:INPUT "Which number do you want to see.";ANSWER
12810 IF ANSWER <1 OR ANSWER >10 THEN BEEP:GOTO 12800 ELSE 12820
12820 ON ANSWER GOSUB 10000,10000,10000,10200,10200,10400,10400,10600,10800,11000:RETURN
12897 '
12898 '** End of file return to menu routine **
12899 '
12900 COLOR 15:LOCATE 25,9
12910 INPUT "<<-------------[ END OF FILE -- PRESS [ENTER] ]------------->>";E$
12920 COLOR 7:IF E$="" THEN RETURN ELSE BEEP:GOTO 12910
12997 '
12998 '** Error routine's **
12999 '
13000 IF ERR=53 OR ERR=76 OR ERR=75 THEN LOCATE 23,10:BEEP:COLOR 15,0:PRINT "<<-- Path or File not found - Re-enter or press ENTER key -->>":COLOR 7,0:IF ERL=1040 THEN RESUME 1000 ELSE RESUME 4020
13010 IF ERR=71 THEN LOCATE 25,18:BEEP:COLOR 15,0:PRINT "<<-- Drive door open or no disk in drive -->>":COLOR 7,0:FOR DLY=1 TO 5000:NEXT :RESUME 50
13020 IF ERR=25 OR ERR=27 THEN LOCATE 25,14:BEEP:COLOR 15,0:PRINT "<<-- Printer is out of paper or not turned on -->>":COLOR 7,0:FOR DLY=1 TO 5000:NEXT:CLS:RESUME 6000
50000 CLS:LOCATE 10,15:PRINT "This program is for public use and may be copied
50010 LOCATE 11,15:PRINT "and shared by all. It is written for the IBM
50020 LOCATE 12,15:PRINT "printer.
50030 LOCATE 14,15:PRINT "(c)Copy written by Wayne Evans
(.txt)